10 REM NUMBER ROUNDER
20 PRINT"[147]        HALF WAVE DIPOLE DESIGNER[146]"
30 INPUT"  FREQUENCY  IN MHZ ";FR
40 A=468/FR
50 REM ROUND TO TENTHS
60 B=INT(A*10+.5)/10
70 REM ROUND TO HUNDREDTHS
80 C=INT(A*100+.5)/100
90 REM ROUND TO THOUSANDTHS
100 D=INT(A*1000+.5)/1000
110 PRINT" DIPOLE LENGTH IS       "A" FEET"
120 PRINT" ROUNDED TO TENTHS      "B"   FEET"
130 PRINT" ROUNDED TO HENDREDTHS  "C"  FEET"
140 PRINT" ROUNDED TO THOUSANDTHS "D" FEET"